Rokenbok Toy Company | Thank you for contacting Rokenbok!

<% '--------------------------------------------------- ' variables for Lyris '--------------------------------------------------- dim emailAddress ' the From field dim subscribeTo ' the subject field for Lyris ' which is the mailing list subscribed to ' which is either text or aol '--------------------------------------------------- ' variables for Warranty Registration ' must use each name because a loop will not put them in order '--------------------------------------------------- dim realname dim Address dim City dim State dim Zip dim Country dim Phone dim Newsletter dim ToyPurchased dim ToyPurchased2 dim ToyPurchased3 dim WhoPurchased dim FirstDiscover dim TypePurchase dim Features dim ReceiveAsGift dim ReasonForPurchase dim PricePaid dim StoreWherePurchased dim PurchaserIs dim PurchaserAge dim WhoToyIsFor dim NumToysOwned dim NumToysPurchased dim ChildrenUnder17InHouse dim AgeChildInHouse dim PersCompAtHome dim AccessToInternet dim SuggestionsForToys dim OtherProductsLikeToSee dim CompareToOtherToys dim OtherConstructionToys dim AnnualHouseholdIncome dim Problems dim KeyCode realname = Request.Form("realname") Address = Request.Form("Address") City = Request.Form("City") State = Request.Form("State") Zip = Request.Form("Zip") Country = Request.Form("Country") Phone = Request.Form("Phone") Newsletter = Request.Form("Newsletter") ToyPurchased = Request.Form("ToyPurchased") ToyPurchased2 = Request.Form("ToyPurchased2") ToyPurchased3 = Request.Form("ToyPurchased3") WhoPurchased = Request.Form("WhoPurchased") FirstDiscover = Request.Form("FirstDiscover") TypePurchase = Request.Form("TypePurchase") Features = Request.Form("Features") ReceiveAsGift = Request.Form("ReceiveAsGift") ReasonForPurchase = Request.Form("ReasonForPurchase") PricePaid = Request.Form("PricePaid") StoreWherePurchased = Request.Form("StoreWherePurchased") PurchaserIs = Request.Form("PurchaserIs") PurchaserAge = Request.Form("PurchaserAge") WhoToyIsFor = Request.Form("WhoToyIsFor") NumToysOwned = Request.Form("NumToysOwned") NumToysPurchased = Request.Form("NumToysPurchased") ChildrenUnder17InHouse = Request.Form("ChildrenUnder17InHouse") AgeChildInHouse = Request.Form("AgeChildInHouse") PersCompAtHome = Request.Form("PersCompAtHome") AccessToInternet = Request.Form("AccessToInternet") SuggestionsForToys = Request.Form("SuggestionsForToys") OtherProductsLikeToSee = Request.Form("OtherProductsLikeToSee") CompareToOtherToys = Request.Form("CompareToOtherToys") OtherConstructionToys = Request.Form("OtherConstructionToys") AnnualHouseholdIncome = Request.Form("AnnualHouseholdIncome") Problems = Request.Form("Problems") KeyCode = Request.Form("KeyCode") dim subjectWarranty ' the subject field for the warranty If Problems = "" Then subjectWarranty = "Warranty" Else subjectWarranty = "Warranty - Action Required!" End If '--------------------------------------------------- ' cstr converts to a string '--------------------------------------------------- emailAddress = cstr(request.form("email")) '--------------------------------------------------------------------- ' test for aol email address '--------------------------------------------------------------------- if (instr(ucase(emailAddress),"@AOL.COM") > 0) then subscribeTo = "subscribe rokenbok_updates_aol" '--------------------------------------------------------------------- ' not aol, or plain list '--------------------------------------------------------------------- else subscribeTo = "subscribe rokenbok_updates" end if '--------------------------------------------------------------------- ' send email to lyris '--------------------------------------------------------------------- If Newsletter = "subscribe" Then set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="lyris@lyris.rokenbok.com" cdoMail.from=emailAddress cdoMail.subject=subscribeTo cdoMail.Body=" " cdoMail.Send set cdoMail=nothing '--------------------------------------------------------------------- ' send confirmation to rokenbok '--------------------------------------------------------------------- set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="maillist@rokenbok.com" cdoMail.from="Lyris" cdoMail.subject="register subscribe " + emailAddress cdoMail.Body = emailAddress + ", " + subscribeTo cdoMail.Send set cdoMail = nothing End If '--------------------------------------------------------------------- ' send Warranty Information to Rokenbok - register@rokenbok.com '--------------------------------------------------------------------- set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="register@rokenbok.com" cdoMail.from=emailAddress cdoMail.subject=subjectWarranty dim bodyText bodyText = bodyText + "realname: " + realname + vbcrlf + vbcrlf bodyText = bodyText + "E-mail: " + emailAddress + " mailto:" + emailAddress + vbcrlf + vbcrlf bodyText = bodyText + "Address: " + Address + vbcrlf + vbcrlf bodyText = bodyText + "City: " + City + vbcrlf + vbcrlf bodyText = bodyText + "State: " + State + vbcrlf + vbcrlf bodyText = bodyText + "Zip: " + Zip + vbcrlf + vbcrlf bodyText = bodyText + "Country: " + Country + vbcrlf + vbcrlf bodyText = bodyText + "Phone: " + Phone + vbcrlf + vbcrlf bodyText = bodyText + "Problems: " + Problems + vbcrlf + vbcrlf bodyText = bodyText + "Newsletter: " + Newsletter + vbcrlf + vbcrlf bodyText = bodyText + "ToyPurchased: " + ToyPurchased + vbcrlf + vbcrlf bodyText = bodyText + "ToyPurchased2: " + ToyPurchased2 + vbcrlf + vbcrlf bodyText = bodyText + "ToyPurchased3: " + ToyPurchased3 + vbcrlf + vbcrlf bodyText = bodyText + "WhoPurchased: " + WhoPurchased + vbcrlf + vbcrlf bodyText = bodyText + "FirstDiscover: " + FirstDiscover + vbcrlf + vbcrlf bodyText = bodyText + "TypePurchase: " + TypePurchase + vbcrlf + vbcrlf bodyText = bodyText + "Features: " + Features + vbcrlf + vbcrlf bodyText = bodyText + "ReceiveAsGift: " + ReceiveAsGift + vbcrlf + vbcrlf bodyText = bodyText + "ReasonForPurchase: " + ReasonForPurchase + vbcrlf + vbcrlf bodyText = bodyText + "PricePaid: " + PricePaid + vbcrlf + vbcrlf bodyText = bodyText + "StoreWherePurchased: " + StoreWherePurchased + vbcrlf + vbcrlf bodyText = bodyText + "PurchaserIs: " + PurchaserIs + vbcrlf + vbcrlf bodyText = bodyText + "PurchaserAge: " + PurchaserAge + vbcrlf + vbcrlf bodyText = bodyText + "WhoToyIsFor: " + WhoToyIsFor + vbcrlf + vbcrlf bodyText = bodyText + "NumToysOwned: " + NumToysOwned + vbcrlf + vbcrlf bodyText = bodyText + "NumToysPurchased: " + NumToysPurchased + vbcrlf + vbcrlf bodyText = bodyText + "ChildrenUnder17InHouse: " + ChildrenUnder17InHouse + vbcrlf + vbcrlf bodyText = bodyText + "AgeChildInHouse: " + AgeChildInHouse + vbcrlf + vbcrlf bodyText = bodyText + "PersCompAtHome: " + PersCompAtHome + vbcrlf + vbcrlf bodyText = bodyText + "AccessToInternet: " + AccessToInternet + vbcrlf + vbcrlf bodyText = bodyText + "SuggestionsForToys: " + SuggestionsForToys + vbcrlf + vbcrlf bodyText = bodyText + "OtherProductsLikeToSee: " + OtherProductsLikeToSee + vbcrlf + vbcrlf bodyText = bodyText + "CompareToOtherToys: " + CompareToOtherToys + vbcrlf + vbcrlf bodyText = bodyText + "OtherConstructionToys: " + OtherConstructionToys + vbcrlf + vbcrlf bodyText = bodyText + "AnnualHouseholdIncome: " + AnnualHouseholdIncome + vbcrlf + vbcrlf bodyText = bodyText + "KeyCode: " + KeyCode + vbcrlf + vbcrlf cdoMail.Body = bodyText cdoMail.Send set cdoMail = nothing %>


	Thank You, your Warranty Information has been submitted!